home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / maxicras / inkey.bas < prev    next >
BASIC Source File  |  1986-03-23  |  3KB  |  39 lines
  1. 30000 LOCATE 4,5
  2. 30010 PRINT "Function Code           Function"
  3. 30020 PRINT TAB(5) STRING$(13,F$(11));TAB(29) STRING$(8,F$(11))
  4. 30030 LOCATE 6,17:RETURN
  5. 31000 LOCATE 23,22:PRINT "ENTER the Function Code desired: ";:GOSUB 33000:IF IN<1 OR IN>FMAX THEN 31000 ELSE RETURN
  6. 33000 XAXIS=CSRLIN:IF F$(23)="8" THEN YAXIS=POS ELSE YAXIS=POS(0)
  7. 33001 COLOR VAL(F$(5)),VAL(F$(15)):IN$="":INLEN=0:PRINT STRING$(ABS(FL),F$(13));:LOCATE XAXIS,YAXIS
  8. 33005 COLOR VAL(F$(16)),VAL(F$(15)):IF F$(23)="8" THEN YPOS=POS ELSE YPOS=POS(0)
  9. 33006 PRINT F$(18);:LOCATE XAXIS,YPOS,VAL(F$(17))
  10. 33010 TEMP$=INKEY$
  11. 33015 IF TEMP$="" THEN 33010 ELSE IF TEMP$=CHR$(13) THEN COLOR VAL(F$(15)),VAL(F$(5)):PRINT STRING$(ABS(FL)-INLEN,32);:IF INLEN=0 THEN IN$=CHR$(13) ELSE 33020 ELSE 33025
  12. 33020 COLOR VAL(F$(15)),VAL(F$(5)):LOCATE XAXIS,YAXIS,0:IF IN$=CHR$(13) THEN IN$="":IN=0:A=0:RETURN ELSE PRINT IN$;:IF FL<0 THEN A=VAL(IN$):IF FL<0 AND ABS(FL)<5 THEN IN=A:RETURN ELSE RETURN ELSE RETURN
  13. 33025 IF (ABS(FL)=LEN(IN$) AND TEMP$<> CHR$(8)) OR TEMP$=CHR$(0) THEN 33010 ELSE IF TEMP$<>CHR$(8) THEN 33035 ELSE IF INLEN=0 THEN 33010 ELSE IF F$(23)="8" THEN YPOS=POS ELSE YPOS=POS(0)
  14. 33026 IF ABS(FL)<>LEN(IN$) THEN COLOR VAL(F$(5)),VAL(F$(15)):LOCATE XAXIS,YPOS,0:PRINT F$(13);
  15. 33030 LOCATE XAXIS,YPOS-1:INLEN=INLEN-1:IN$=LEFT$(IN$,INLEN):GOTO 33005
  16. 33035 IF FL>0 THEN IF TEMP$=>" " AND TEMP$<="~" THEN 33050
  17. 33040 IF TEMP$="." OR TEMP$="-" THEN 33050
  18. 33045 IF TEMP$<"0" OR TEMP$>"9" THEN 33010
  19. 33050 COLOR VAL(F$(15)),VAL(F$(5)):INLEN=INLEN+1:IN$=IN$+TEMP$:LOCATE XAXIS,YAXIS,0:PRINT IN$;:IF ABS(FL)<=LEN(IN$) THEN 33010 ELSE 33005
  20. 34000 FL=1:GOSUB 33000:GOSUB 35000
  21. 34010 IF IN$="N" OR IN$="Y" OR IN$="" THEN RETURN ELSE IF F$(23)="8" THEN LOCATE CSRLIN,POS-1:GOTO 34000
  22. 34011 LOCATE CSRLIN,POS(0)-1:GOTO 34000
  23. 35000 FOR LOWER=1 TO LEN(IN$):LOWER1=ASC(MID$(IN$,LOWER,1)):IF LOWER1 >96 AND LOWER1 <123 THEN MID$(IN$,LOWER,1)=CHR$(LOWER1-32)
  24. 35010 NEXT :RETURN
  25. 50000 LOCATE X,1:FOR I=1 TO Y:PRINT SPACE$(80);:NEXT:LOCATE X,1:RETURN
  26. 60000 RETURN
  27. 60010 CF=1:EC=0:CLOSE:OPEN"I",1,PNM$:CLOSE
  28. 60020 IF (EC=53 OR EC=54) THEN 60030 ELSE RETURN
  29. 60030 DEF FNCN$(X$)=SPACE$((80-LEN(X$))/2)+X$:CLS:LOCATE 12,1:PRINT FNCN$("Insert "+TYPEDISK$+" into drive # "+PDISK$)
  30. 60040 LOCATE 14,29
  31. 60050 PRINT"Depress ";:COLOR VAL(F$(14)):PRINT"'ENTER'";:COLOR VAL(F$(15)),VAL(F$(5)): PRINT" when ready ";
  32. 60060 IN$=INKEY$:IF IN$="" THEN 60060
  33. 60070 LOCATE 14,1:PRINT SPACE$(79):GOTO 60010
  34. 61000 IF ((PDISK$=DDISK$ AND INSTR(DDISK$,"\")>0) OR PDISK$<>DDISK$) THEN RETURN ELSE PNM$=PDISK$+"BALANCE.DAT":TYPEDISK$="Data Disk":GOTO 60010
  35. 62000 CLOSE:PNM$=PDISK$+PNM$:IF PDISK$=DDISK$ THEN TYPEDISK$="Program Disk '1'":GOSUB 60010
  36. 62005 IF BANNER=1 THEN GOSUB 25100
  37. 62010 CHAIN PNM$
  38. /Ü│a╧B╞?╓Öüä¬S½ù>$5,▀ à╟Θ√[b╒É₧┤ µδ█¢╖═~╥
  39. ┐$,JΣ»A&4V╘